home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 64 / MOBICLIC 64.ISO / DATA / AIDE / AIDE00.dir / 00007_Script_7 < prev    next >
Text File  |  2004-02-03  |  920b  |  42 lines
  1. --BOUTONS AIDE
  2. property numero, LaPiste, LeNom, LeTexte, LimageRoll
  3. -------
  4. on beginSprite me
  5.   numero = me.spriteNum
  6.   LeTexte = me.spriteNum + 20
  7.   LimageRoll = me.spriteNum + 40
  8.   LaPiste = sprite(numero)
  9.   LeNom = LaPiste.member.name
  10. end
  11. ------- 
  12. on MouseEnter
  13.   if the pauseState = 1 then exit
  14.   cursor 280
  15.   LaPiste.member = LeNom&"_R"
  16.   sprite(LeTexte).visible = 1
  17.   sprite(LimageRoll).visible = 1
  18.   updateStage
  19. end
  20. -------
  21. on mouseLeave
  22.   if the pauseState = 1 then exit
  23.   cursor -1
  24.   sprite(LeTexte).visible = 0
  25.   sprite(LimageRoll).visible = 0
  26.   puppetSprite numero,false
  27. end
  28. -------
  29. on mouseUp
  30.   if the pauseState = 1 then exit
  31.   sound close 3
  32.   cursor-1
  33.   LaPiste.member = LeNom&"_R"
  34.   sprite(LeTexte).visible = 1
  35.   sprite(LimageRoll).visible = 1
  36.   if numero<24 then
  37.     joueson "aide0"&(numero-14)
  38.   else
  39.     joueson "aide"&(numero-14)
  40.   end if
  41.   go to "COMMENT"
  42. end